home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / ilisp.emacs < prev    next >
Encoding:
Text File  |  1995-01-26  |  4.7 KB  |  143 lines
  1. ;;;  -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp.emacs --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.7
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
  11. ;;;
  12. ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
  13. ;;; ILISP mailing list.
  14.  
  15. ;;; This file shows examples of some of the things you might want to
  16. ;;; do to install or customize ILISP.  You may not want to include all
  17. ;;; of them in your .emacs.  For example, the default key binding
  18. ;;; prefix for ILISP is C-z and this file changes the default prefix to
  19. ;;; C-c.  For more information on things that can be changed, see the
  20. ;;; file ilisp.el. 
  21.  
  22.  
  23. ;;; If ilisp lives in some non-standard directory, you must tell emacs
  24. ;;; where to get it. This may or may not be necessary.
  25.  
  26. (setq load-path (cons (expand-file-name "~jones/emacs/ilisp/") load-path))
  27.  
  28.  
  29. ;;; If you always want partial minibuffer completion
  30.  
  31. (require 'completer)
  32.  
  33. ;;; If want TMC completion then you will have to Ftp it yourself from think.com
  34. ;;; It's become to flaky for me to deal with. -- Ivan
  35. ;;;(load "completion")
  36. ;;;(initialize-completions)
  37.  
  38. ;;; If you want to redefine typeout-window keys:
  39. ;;;(add-hook 'ilisp-load-hook
  40. ;;;      '(lambda ()
  41. ;;;    (define-key global-map "\C-c1" 'ilisp-bury-output)
  42. ;;;    (define-key global-map "\C-cv" 'ilisp-scroll-output)
  43. ;;;    (define-key global-map "\C-cg" 'ilisp-grow-output)))
  44.  
  45.  
  46. ;;; Autoload based on your LISP.  You only really need the one you use.
  47. ;;; If called with a prefix, you will be prompted for a buffer and
  48. ;;; program.
  49. ;;; 
  50. ;;; [Back to the old way now -- Ivan Mon Jun 28 23:30:51 1993]
  51. ;;;
  52.  
  53. (autoload 'run-ilisp "ilisp" "Select a new inferior LISP." t)
  54.  
  55. (autoload 'clisp     "ilisp" "Inferior generic Common LISP." t)
  56.  
  57. ;;; Franz
  58. ;(autoload 'allegro   "ilisp" "Inferior Allegro Common LISP." t)
  59.  
  60. ;;; Lucid
  61. ;(autoload 'lucid     "ilisp" "Inferior Lucid Common LISP." t)
  62.  
  63. ;;; Harlequin
  64. ;(autoload lispworks  "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
  65. ;(autoload harlequin  "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
  66. ;(autoload pulcinella "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
  67. ;;; Italian "Commedia dell'Arte" twist.
  68.  
  69. ;;; CMULISP
  70. (autoload 'cmulisp   "ilisp" "Inferior CMU Common LISP." t)
  71.  
  72. ;;; CLISP (Bruno Haible and XX stoll)
  73. ;(autoload 'clisp-hs   "ilisp" "Inferior Haible/Stoll CLISP Common LISP." t)
  74.  
  75. ;;; KCL's
  76. ;(autoload 'kcl "ilisp" "Inferior Kyoto Common LISP." t)
  77. (autoload 'akcl "ilisp" "Inferior Austin Kyoto Common LISP." t)
  78. ;(autoload 'ibcl "ilisp" "Ibuki Common LISP." t)
  79. (autoload 'gcl "ilisp" "Inferior GNU Common LISP." t)
  80. (autoload 'ecl "ilisp" "Inferior EcoLisp." t)
  81.  
  82. ;;; Scheme's
  83. ;(autoload 'scheme    "ilisp" "Inferior generic Scheme." t)
  84. ;(autoload 'oaklisp   "ilisp" "Inferior Oaklisp Scheme." t)
  85.  
  86.  
  87. ;;; Define where LISP programs are found.  (This may already be done
  88. ;;; at your site.)
  89. ;(setq allegro-program "/usr/misc/.allegro/bin/cl")
  90. ;(setq lucid-program "/usr/misc/.lucid/bin/lisp")
  91. ;(setq cmulisp-program "/usr/misc/.cmucl/bin/lisp")
  92. ;(setq clisp-hs-program "clisp")
  93. ;(setq lispworks-program "/somewhere/in/the/directory/tree/lispworks")
  94. (setq cmulisp-program "/usr/robotics/shared/lang/cmu-cl/17e/bin/lisp")
  95. (setq akcl-program "kcl")
  96. ;(setq gcl-program "gcl")
  97. ;(setq ecl-program "ecl")
  98.  
  99. ;;; If you run cmu-cl then set this to where your source files are.
  100. (setq cmulisp-local-source-directory "/usr/robotics/shared/cmu-cl/17e/")
  101.  
  102.  
  103. ;;; This makes reading a lisp file load in ilisp.
  104. (set-default 'auto-mode-alist
  105.          (append '(("\\.lisp$" . lisp-mode)) auto-mode-alist))
  106. (setq lisp-mode-hook '(lambda () (require 'ilisp)))
  107.  
  108. ;;; Sample load hook
  109. (add-hook 'ilisp-load-hook 
  110.       (function
  111.        (lambda ()
  112.          ;; Change default key prefix to C-c
  113.          (setq ilisp-prefix "\C-c")
  114.  
  115.          ;; Make sure that you don't keep popping up the 'inferior
  116.          ;; lisp' buffer window when this is already visible in
  117.          ;; another frame. Actually this variable has more impact
  118.          ;; than that. Watch out.
  119.          ;(setq pop-up-frames t)
  120.  
  121.          (message "Running ilisp-load-hook")
  122.          ;; Define LispMachine-like key bindings, too.
  123.          ;; (ilisp-lispm-bindings) Sample initialization hook.
  124.  
  125.          ;; Set the inferior LISP directory to the directory of
  126.          ;; the buffer that spawned it on the first prompt.
  127.          (add-hook 'ilisp-init-hook
  128.                (function
  129.             (lambda ()
  130.               (default-directory-lisp ilisp-last-buffer))))
  131.          )))
  132.  
  133. (add-hook 'ilisp-site-hook
  134.       (function
  135.        (lambda ()
  136.          (setq ilisp-init-binary-extension "sparcf")
  137.          (setq ilisp-init-binary-command "(progn \"sparcf\")")
  138.          ;; (setq ilisp-binary-extension "sparcf")
  139.          )))
  140.  
  141.  
  142. ;;; end of file -- ilisp.emacs --
  143.